SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\SL2Invariant"];
<< SL2Invariant.m
SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\SL2Invariant\\k=2"];

$k=2; 
ℏ=γ=1;
$QZipFail=True;
Monitor[tab=Table[
{n,type,k}=List@@K;
fname="Data/"<>ToString[n]<>(type/.{Alternating->"a", NonAlternating->"n"})<>ToString[k]<>".m";
Switch[FileType[fname],
None,z=(K->Timing[𝔼4@Z@K]);Put[z, fname],
File,z=Get[fname]
];
z,
{K,Reverse@AllKnots[{11,12}]}
], K]

This program notebook did the computation on ZBook X2, down from 12n888 to 12a1273.

Exit[]